home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok87 / stopwatch / stopwatchdemo.mod < prev    next >
Text File  |  1993-11-04  |  744b  |  38 lines
  1.  
  2. MODULE StopWatchDemo;
  3.  
  4.   IMPORT
  5.     d:=Dos, e:=Exec, g:=Graphics, StopWatch, io;
  6.  
  7.   VAR
  8.     micros: LONGINT;
  9.     oldpri: SHORTINT;
  10.     vk,nk:  LONGINT;
  11.     i: INTEGER;
  12.  
  13. BEGIN
  14.   IF e.exec.libNode.version < 37 THEN HALT(d.error) END; (* BIG ERROR :-) *)
  15.  
  16.   oldpri := e.SetTaskPri(e.FindTask(NIL),127);
  17.   (* Disable geht nicht wegen WaitTOF *)
  18.  
  19.   g.WaitTOF;
  20.   StopWatch.Start();
  21.   i := 16;
  22.   REPEAT DEC(i); g.WaitTOF UNTIL i=0;
  23.   micros := StopWatch.Stop();
  24.  
  25.   oldpri := e.SetTaskPri(e.FindTask(NIL),oldpri);
  26.  
  27.   micros := micros DIV 16;
  28.  
  29.   d.PrintF("One frame is %ld micro sec.\n",micros);
  30.  
  31.   nk := 10000000 DIV micros;
  32.   vk := nk DIV 10; nk := nk MOD 10;
  33.  
  34.   d.PrintF("Your vertical screen frequency is %ld.%ld Hz\n",vk,nk);
  35.  
  36. END StopWatchDemo.
  37.  
  38.